home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / DBASE5 / CUA_SAMP.ZIP / PEDIDOS.DFM < prev    next >
Text File  |  1994-10-12  |  11KB  |  476 lines
  1.  
  2.  
  3.  
  4.  
  5. DEFINE FORM ORDERS ;
  6.    PROPERTY ;
  7.       HEIGHT           18,;
  8.       LEFT             5,;
  9.       ONCLOSE          CloseOrd,;
  10.       ONGOTFOCUS       Repaint,;
  11.       ONOPEN           OpenOrd,;
  12.       TEXT             "PEDIDOS",;
  13.       TOP              2,;
  14.       WIDTH            71
  15.  
  16. ORDERS.ACTION            = .T.
  17. ORDERS.CLAYTYPE          = "L"
  18. ORDERS.CLOSEDATA         = .F.
  19. ORDERS.CURRMAST          = "PEDIDOS"
  20. ORDERS.DISPMODE          = "VGA25"
  21. ORDERS.MODALFORM         = .F.
  22. ORDERS.NFLDPLC           = 9
  23. ORDERS.NHEIGHT           = 18
  24. ORDERS.NLEFT             = 33
  25. ORDERS.NOBJCTR           = 27
  26. ORDERS.NTOP              = 34
  27. ORDERS.SCAN4LOOK         = 6
  28. ORDERS.SETDISP           = .T.
  29.  
  30.  
  31.  
  32. DEFINE MENUBAR FileList
  33. ORDERS.FileList = FileList
  34. RELEASE FileList
  35.  
  36. SELECT 1
  37. PRIVATE nORDERS , fORDERS
  38. IF FileRoot( DBF() ) == 'PEDIDOS' .AND. .NOT. EOF()
  39.     nORDERS = RECNO()
  40.     fORDERS = SET( 'FILTER' )
  41. ELSE
  42.     nORDERS = 0
  43.     fORDERS = ''
  44. ENDIF
  45.  
  46. IF TYPE('ORDERS.CloseData') = 'L' .AND. ORDERS.CloseData
  47.     CLOSE DATABASE
  48. ELSE
  49.     IF TYPE('ORDERS.CloseData') # 'L'
  50.         CLOSE DATABASE
  51.     ELSE
  52.         SELECT SELECT()
  53.     ENDIF
  54. ENDIF
  55.  
  56. USE PEDIDOS.DBF ALIAS PEDIDOS
  57. IF nORDERS > 0
  58.     GO nORDERS
  59.     IF .NOT. ISBLANK( fORDERS )
  60.         SET FILTER TO &fORDERS
  61.     ENDIF
  62. ENDIF
  63.  
  64. DEFINE MENU File1 OF ORDERS.FileList;
  65.     PROPERTY ;
  66.         Text        DBF() ,;
  67.         StatusMessage   [Maestro];
  68.     CUSTOM ;
  69.         FileAlias   ALIAS() ,;
  70.         ErrorDBF    .F.
  71.  
  72. DEFINE RECTANGLE RCNAME19 OF M->ORDERS;
  73.    PROPERTY ;
  74.       HEIGHT           4,;
  75.       LEFT             4,;
  76.       TOP              1,;
  77.       WIDTH            61
  78.  
  79. ORDERS.RCNAME19.BorderStyle         = 2
  80.  
  81.  
  82. DEFINE RECTANGLE RCNAME20 OF M->ORDERS;
  83.    PROPERTY ;
  84.       HEIGHT           8,;
  85.       LEFT             4,;
  86.       TOP              5,;
  87.       WIDTH            61
  88.  
  89. ORDERS.RCNAME20.BorderStyle         = 2
  90.  
  91.  
  92. DEFINE ENTRYFIELD CUST_ID001 OF M->ORDERS;
  93.    PROPERTY ;
  94.       DATALINK         "PEDIDOS->COD_CLI",;
  95.       LEFT             20,;
  96.       PICTURE          "XXXXXX",;
  97.       TOP              2,;
  98.       VALID            ChkLook,;
  99.       WIDTH            6
  100.  
  101. ORDERS.CUST_ID001.LOOKALIAS     = "CLI"
  102. ORDERS.CUST_ID001.LOOKALL       = .F.
  103. ORDERS.CUST_ID001.LOOKFIELD     = "COD_CLI"
  104. ORDERS.CUST_ID001.LOOKFILE      = "CLI.DBF"
  105. ORDERS.CUST_ID001.LOOKHELPFL    = .T.
  106. ORDERS.CUST_ID001.LOOKJUST      = .T.
  107. ORDERS.CUST_ID001.LOOKNOHELP    = .F.
  108. ORDERS.CUST_ID001.LOOKTAG       = "COD_CLI"
  109.  
  110.  
  111. ORDERS.CUST_ID001.Valid = "ChkLook"
  112.  
  113. SELECT SELECT()
  114. USE CLI.DBF ORDER COD_CLI
  115. SEEK PEDIDOS->COD_CLI
  116.  
  117. DEFINE MENU File2 OF ORDERS.FileList;
  118.     PROPERTY ;
  119.         Text        DBF() ,;
  120.         StatusMessage   [Lookup on ];
  121.     CUSTOM ;
  122.         FileAlias   ALIAS() ,;
  123.         ErrorDBF    .F.
  124.  
  125. SELECT 1
  126. DEFINE ENTRYFIELD DATE_TR002 OF M->ORDERS;
  127.    PROPERTY ;
  128.       DATALINK         "PEDIDOS->FECH_TRANS",;
  129.       LEFT             20,;
  130.       TOP              3,;
  131.       WIDTH            8
  132.  
  133.  
  134.  
  135. DEFINE ENTRYFIELD PO_NUMB005 OF M->ORDERS;
  136.    PROPERTY ;
  137.       DATALINK         "PEDIDOS->NUM_PED",;
  138.       LEFT             41,;
  139.       PICTURE          "XXXXX",;
  140.       TOP              3,;
  141.       WIDTH            5
  142.  
  143.  
  144.  
  145. DEFINE ENTRYFIELD PART_ID003 OF M->ORDERS;
  146.    PROPERTY ;
  147.       DATALINK         "PEDIDOS->COD_ART",;
  148.       LEFT             22,;
  149.       PICTURE          "!-999-9999",;
  150.       RANGEREQUIRED    .T.,;
  151.       TOP              6,;
  152.       ONLOSTFOCUS      UDTEXT,;
  153.       VALID            ChkLook,;
  154.       WIDTH            10
  155.  
  156. ORDERS.PART_ID003.LOOKALIAS     = "ARTICULO"
  157. ORDERS.PART_ID003.LOOKALL       = .F.
  158. ORDERS.PART_ID003.LOOKFIELD     = "COD_ART"
  159. ORDERS.PART_ID003.LOOKFILE      = "ARTICULO.DBF"
  160. ORDERS.PART_ID003.LOOKHELPFL    = .T.
  161. ORDERS.PART_ID003.LOOKJUST      = .T.
  162. ORDERS.PART_ID003.LOOKNOHELP    = .F.
  163. ORDERS.PART_ID003.LOOKTAG       = "COD_ART"
  164.  
  165.  
  166. ORDERS.PART_ID003.Valid = "ChkLook"
  167.  
  168. SELECT SELECT()
  169. USE ARTICULO.DBF ORDER COD_ART
  170. SEEK PEDIDOS->COD_ART
  171.  
  172. DEFINE MENU File3 OF ORDERS.FileList;
  173.     PROPERTY ;
  174.         Text        DBF() ,;
  175.         StatusMessage   [Lookup on ];
  176.     CUSTOM ;
  177.         FileAlias   ALIAS() ,;
  178.         ErrorDBF    .F.
  179.  
  180. SELECT 1
  181. DEFINE SPINBOX SBNAME11 OF M->ORDERS;
  182.    PROPERTY ;
  183.       LEFT             22,;
  184.       PICTURE          "9999",;
  185.       TOP              7,;
  186.       WIDTH            7
  187.  
  188.  
  189.  
  190. DEFINE ENTRYFIELD EMP_ID007 OF M->ORDERS;
  191.    PROPERTY ;
  192.       DATALINK         "PEDIDOS->COD_EMP",;
  193.       LEFT             22,;
  194.       ONLOSTFOCUS      UDTEXT,;
  195.       PICTURE          "999-99-9999",;
  196.       TOP              9,;
  197.       VALID            ChkLook,;
  198.       WIDTH            11
  199.  
  200. ORDERS.EMP_ID007.LOOKALIAS      = "EMPLEADO"
  201. ORDERS.EMP_ID007.LOOKALL        = .F.
  202. ORDERS.EMP_ID007.LOOKFIELD      = "COD_EMP"
  203. ORDERS.EMP_ID007.LOOKFILE       = "EMPLEADO.DBF"
  204. ORDERS.EMP_ID007.LOOKHELPFL     = .T.
  205. ORDERS.EMP_ID007.LOOKJUST       = .T.
  206. ORDERS.EMP_ID007.LOOKNOHELP     = .F.
  207. ORDERS.EMP_ID007.LOOKTAG        = "COD_EMP"
  208.  
  209.  
  210. ORDERS.EMP_ID007.Valid = "ChkLook"
  211.  
  212. SELECT SELECT()
  213. USE EMPLEADO.DBF ORDER COD_EMP
  214. SEEK PEDIDOS->COD_EMP
  215.  
  216. DEFINE MENU File4 OF ORDERS.FileList;
  217.     PROPERTY ;
  218.         Text        DBF() ,;
  219.         StatusMessage   [Lookup on ];
  220.     CUSTOM ;
  221.         FileAlias   ALIAS() ,;
  222.         ErrorDBF    .F.
  223.  
  224. SELECT 1
  225. DEFINE ENTRYFIELD NOTES006 OF M->ORDERS;
  226.    PROPERTY ;
  227.       DATALINK         "PEDIDOS->NOTAS",;
  228.       LEFT             12,;
  229.       TOP              11,;
  230.       WIDTH            4
  231.  
  232.  
  233.  
  234. DEFINE CHECKBOX CBNAME17 OF M->ORDERS;
  235.    PROPERTY ;
  236.       DATALINK         "PEDIDOS->FACTURADO",;
  237.       GROUP            .T.,;
  238.       LEFT             31,;
  239.       TEXT             "FACTURADO",;
  240.       TOP              11,;
  241.       WIDTH            14
  242.  
  243. ORDERS.CBNAME17.ColorNormal         = "N/W"
  244.  
  245.  
  246. DEFINE PUSHBUTTON PBNAME3 OF M->ORDERS;
  247.    PROPERTY ;
  248.       LEFT             0,;
  249.       ONCLICK          Add_new,;
  250.       TEXT             "&Añadir",;
  251.       TOP              14,;
  252.       WIDTH            10
  253.  
  254. ORDERS.PBNAME3.GrabFocus            = .F.
  255.  
  256.  
  257. DEFINE PUSHBUTTON PBNAME4 OF M->ORDERS;
  258.    PROPERTY ;
  259.       LEFT             10,;
  260.       ONCLICK          DelIt,;
  261.       TEXT             "&Eliminar",;
  262.       TOP              14,;
  263.       WIDTH            12
  264.  
  265.  
  266.  
  267. DEFINE PUSHBUTTON PBNAME21 OF M->ORDERS;
  268.    PROPERTY ;
  269.       LEFT             22,;
  270.       ONCLICK          SKIPFOR,;
  271.       TEXT             "&Siguiente",;
  272.       TOP              14,;
  273.       WIDTH            13
  274.  
  275.  
  276.  
  277. DEFINE PUSHBUTTON PBNAME22 OF M->ORDERS;
  278.    PROPERTY ;
  279.       LEFT             35,;
  280.       ONCLICK          SKIPBACK,;
  281.       TEXT             "A&nterior",;
  282.       TOP              14,;
  283.       WIDTH            12
  284.  
  285.  
  286.  
  287. DEFINE PUSHBUTTON PBNAME6 OF M->ORDERS;
  288.    PROPERTY ;
  289.       LEFT             47,;
  290.       ONCLICK          Printme,;
  291.       TEXT             "&Imprimir",;
  292.       TOP              14,;
  293.       WIDTH            12
  294.  
  295.  
  296.  
  297. DEFINE PUSHBUTTON PBNAME5 OF M->ORDERS;
  298.    PROPERTY ;
  299.       LEFT             59,;
  300.       ONCLICK          Closeme,;
  301.       TEXT             "Sa&lir",;
  302.       TOP              14,;
  303.       WIDTH            9
  304.  
  305.  
  306.  
  307. DEFINE TEXT CFDNAME1 OF M->ORDERS;
  308.    PROPERTY ;
  309.       LEFT             6,;
  310.       TEXT             "CLIENTE Nº:",;
  311.       TOP              2,;
  312.       WIDTH            11
  313.  
  314.  
  315.  
  316. DEFINE TEXT CFDNAME2 OF M->ORDERS;
  317.    PROPERTY ;
  318.       LEFT             6,;
  319.       TEXT             "FECHA PEDIDO:",;
  320.       TOP              3,;
  321.       WIDTH            13
  322.  
  323.  
  324.  
  325. DEFINE TEXT CFDNAME3 OF M->ORDERS;
  326.    PROPERTY ;
  327.       LEFT             6,;
  328.       TEXT             "ARTICULO Nº    :",;
  329.       TOP              6,;
  330.       WIDTH            16
  331.  
  332.  
  333.  
  334. DEFINE TEXT CFDNAME4 OF M->ORDERS;
  335.    PROPERTY ;
  336.       LEFT             6,;
  337.       TEXT             "CANT.DISPONIBLE:",;
  338.       TOP              8,;
  339.       WIDTH            16
  340.  
  341.  
  342.  
  343. DEFINE TEXT CFDNAME5 OF M->ORDERS;
  344.    PROPERTY ;
  345.       LEFT             31,;
  346.       TEXT             "PEDIDO Nº:",;
  347.       TOP              3,;
  348.       WIDTH            10
  349.  
  350.  
  351.  
  352. DEFINE TEXT CFDNAME6 OF M->ORDERS;
  353.    PROPERTY ;
  354.       LEFT             6,;
  355.       TEXT             "NOTAS",;
  356.       TOP              11,;
  357.       WIDTH            5
  358.  
  359.  
  360.  
  361. DEFINE TEXT CFDNAME7 OF M->ORDERS;
  362.    PROPERTY ;
  363.       LEFT             6,;
  364.       TEXT             "EMPLEADO Nº    :",;
  365.       TOP              9,;
  366.       WIDTH            16
  367.  
  368.  
  369.  
  370. DEFINE TEXT TXNAME10 OF M->ORDERS;
  371.    PROPERTY ;
  372.       LEFT             6,;
  373.       TEXT             "CANT.PEDIDA    :",;
  374.       TOP              7,;
  375.       WIDTH            16
  376.  
  377.  
  378.  
  379. DEFINE TEXT TXNAME12 OF M->ORDERS;
  380.    PROPERTY ;
  381.       LEFT             34,;
  382.       TEXT             "unidad(es)",;
  383.       TOP              7,;
  384.       WIDTH            10
  385.  
  386.  
  387.  
  388. DEFINE TEXT TXNAME13 OF M->ORDERS;
  389.    PROPERTY ;
  390.       LEFT             34,;
  391.       TEXT             "",;
  392.       TOP              6,;
  393.       WIDTH            8
  394.  
  395. ORDERS.TXNAME13.ColorNormal         = "RB/W"
  396.  
  397.  
  398. DEFINE TEXT TXNAME14 OF M->ORDERS;
  399.    PROPERTY ;
  400.       LEFT             45,;
  401.       TEXT             "PRECIO :",;
  402.       TOP              7,;
  403.       WIDTH            8
  404.  
  405. ORDERS.TXNAME14.ColorNormal         = "B/W"
  406.  
  407.  
  408. DEFINE TEXT TXNAME15 OF M->ORDERS;
  409.    PROPERTY ;
  410.       LEFT             34,;
  411.       TEXT             "unidad(es)",;
  412.       TOP              8,;
  413.       WIDTH            10
  414.  
  415.  
  416.  
  417. DEFINE TEXT TXNAME16 OF M->ORDERS;
  418.    PROPERTY ;
  419.       LEFT             45,;
  420.       TEXT             "MARGEN :",;
  421.       TOP              8,;
  422.       WIDTH            8
  423.  
  424. ORDERS.TXNAME16.ColorNormal         = "B/W"
  425.  
  426.  
  427. DEFINE TEXT TXNAME18 OF M->ORDERS;
  428.    PROPERTY ;
  429.       LEFT             34,;
  430.       TEXT             "",;
  431.       TOP              9,;
  432.       WIDTH            8
  433.  
  434. ORDERS.TXNAME18.ColorNormal         = "RB/W"
  435.  
  436.  
  437. DEFINE TEXT TXNAME23 OF M->ORDERS;
  438.    PROPERTY ;
  439.       LEFT             52,;
  440.       TEXT             "",;
  441.       TOP              3,;
  442.       WIDTH            8
  443.  
  444. ORDERS.TXNAME23.ColorNormal         = "R/W"
  445.  
  446.  
  447. DEFINE TEXT TXNAME24 OF M->ORDERS;
  448.    PROPERTY ;
  449.       LEFT             53,;
  450.       TEXT             "",;
  451.       TOP              7,;
  452.       WIDTH            8
  453.  
  454. ORDERS.TXNAME24.ColorNormal         = "RB/W"
  455.  
  456.  
  457. DEFINE TEXT TXNAME25 OF M->ORDERS;
  458.    PROPERTY ;
  459.       LEFT             53,;
  460.       TEXT             "",;
  461.       TOP              8,;
  462.       WIDTH            8
  463.  
  464. ORDERS.TXNAME25.ColorNormal         = "RB/W"
  465.  
  466.  
  467. DEFINE TEXT TXNAME27 OF M->ORDERS;
  468.    PROPERTY ;
  469.       LEFT             22,;
  470.       TEXT             "",;
  471.       TOP              8,;
  472.       WIDTH            8
  473.  
  474.  
  475.  
  476.